PL1=0
DO WHILE PL1=0
   SET COLO TO W+/B
   @  7, 1 CLEA TO 23,78
   @  8, 5 SAY "D A I L Y   R E P O R T S"
   @  7, 3 TO 9,31
   SET COLOR TO W+/N
   @ 11, 5 CLEA TO 23,47
   SET COLOR TO N/BG,W+/N
   @ 10, 3 CLEA TO 22,45
   @ 10, 3 TO 22,45 DOUBLE
   @ 11, 5 PROMPT "A .. ACTIVITY REPORT                   "
   @ 13, 5 PROMPT "B .. REVENUE REPORT                    "
   @ 15, 5 PROMPT "C .. ABNORMALITY REPORT                "
   @ 17, 5 PROMPT "D .. VOID INVOICE REPORT               "
*   @ 19, 5 PROMPT "E .. CHECK REPLACEMENT OF INVOICE VOID "
*   @ 16, 5 PROMPT "E .. ACTIVITY JAPANESSE REPORT        "
*   @ 17, 5 PROMPT "F .. REVENUE JAPANESSE REPORT     "
*   @ 18, 5 PROMPT "G .. ABNORMALITY JAPANESSE REPORT "

   @ 21, 5 PROMPT "X .. RETURN TO PREVIOUS MENU           "
   LYY=SAVESCREEN(0,0,24,79)
   MENU TO PL1
   SET COLO TO BG+/B
   IF LAST()=27
       CLEAR
       RETURN
   ENDIF
   DO CASE
      CASE PL1=1
         DO react
      CASE PL1=2
        DO rerev
      CASE PL1=3
        DO reabn
      CASE PL1=4
        DO reREVV
*      CASE PL1=5
*        DO reactj
*      CASE PL1=6
*        DO rerevj
*      CASE PL1=7
*        DO reabnj
*      CASE PL1=5
*        DO CVOID
*        RESTSCREEN(0,0,24,79,LYY)
      CASE PL1=5
         RETURN
   ENDCASE
   PL1=0
ENDDO

